www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/marrylist.asp
<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<% '=========================================================
' File: marrylist.asp
' Version:3.0
' Date: 2005-10-29
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579 Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
stats="征婚大厅"
call nav()
if not founduser then
Errmsg=Errmsg+"<br>"+"<li>您还没有登陆，请登陆后进行修改。"
founderr=true
end if
if founderr then
call Mslove_error()
else
call tumppages()'翻页处理
strFileName="marrylist.asp?"
call main()
end if
call activeonline()
call footer()
sub main()%>
<table border="0" align="center" cellpadding="0" cellspacing="0" class=tableborder2>
<tr>
<td>
<TABLE width="100%" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
<TBODY>
<TR>
<TD width=112><IMG height=41
src="Skins/Default/marry/zhdt20050325_tu11.gif" width=210></TD>
<TD vAlign=bottom align=right bgColor=#ffffff></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td><TABLE cellSpacing=0 cellPadding=0 align=center border=0>
<TBODY>
<TR>
<TH class=norepeat vAlign=top scope=row
background=Skins/Default/marry/zhdt20050325_bg1.gif> <TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TH scope=row align=right><IMG height=123
src="Skins/Default/marry/zhdt20050325_tu1.gif" width=210></TH>
<TH scope=row align=left width=200><IMG height=123
src="Skins/Default/marry/zhdt20050325_tu2.gif" width=200></TH>
<TH scope=row width=188><IMG height=123
src="Skins/Default/marry/zhdt20050325_tu3.gif" width=200></TH>
<TH align="left" scope=row><IMG height=123
src="Skins/Default/marry/zhdt20050325_tu4.gif"
width=138></TH>
</TR>
</TBODY>
</TABLE></TH>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="16" height="76"> </td>
<td><IMG height=114
src="Skins/Default/marry/zhdt20050325_tu5.gif" width=259></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
<tr>
<td height="28" colspan="2" align="left" class=tablebody1><a href="usermarry.asp?action=add">我要发布</a></td>
</tr>
<%dim userinfo,Userfriendinfo,Marinfo,marusername,id,Userheight
set rs=server.createobject("adodb.recordset")
sql="select m.mid,m.username,m.Marinfo,u.UserSex,u.UserPhoto,u.UserBirthday,u.UserInfo,u.Userfriends,u.Userheight from Ms_Marry m inner join Ms_user u on m.Username=u.Username where m.Checked=1 order by m.MID desc"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)
marusername=rs("username")
userinfo=split(rs("UserInfo"),"|||")
Userfriendinfo=split(rs("Userfriends"),"|||")
Marinfo=split(rs("Marinfo"),"|||")
Userheight=rs("Userheight")
id=rs("mid")%>
<tr>
<td width="20%" height="188" align="center" class=tablebody1><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="128" align="center"><IFrame src="visual_show2.asp?username=<%=marusername%>&boardid=0&type=1&bgcolor=tablebody1&" width="100" height="115" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="NO" allowtransparency="true"></iframe></td>
</tr>
<tr>
<td height="23" align="center">昵称：<%=marusername%> </td>
</tr>
<tr>
<td height="20" align="center"><a href=dispuser.asp?username=<%=marusername%> target=_blank title=查看会员资料><img src="Skins/Default/icon_001.gif" width="16" height="16" border="0" align="absmiddle"></a>
[<a href="dispuser.asp?username=<%=marusername%>">查看详细资料</a>]</td>
</tr>
<tr>
<td height="19" align="center"><a href=userbook.asp?action=add&ClassID=2&Touser=<%=marusername%> target=_blank title="发送站内留言"><img src="Skins/Default/icon_003.gif" width="16" height="16" border="0" align="absmiddle"></a>
[<a href=userbook.asp?action=add&ClassID=2&Touser=<%=marusername%> target=_blank>发送站内留言</a>]</td>
</tr>
<tr>
<td height="19" align="center"><a href="javascript:openScript('messanger.asp?action=new&touser=<%=htmlencode(marusername)%>',500,400)" title=明送秋波><img src="Skins/Default/icon_004.gif" width="16" height="16" border="0" align="absmiddle"></a>
[<a href="javascript:openScript('messanger.asp?action=new&touser=<%=htmlencode(marusername)%>',500,400)" title=明送秋波>明 送 秋 波</a>]</td>
</tr>
<tr>
<td height="10" align="center"><a href="friendlist.asp?action=addF&myFriend=<%=HTMLEncode(marusername)%>" target="_blank" title=加入我的最爱><img src="Skins/Default/icon_005.gif" width="16" height="16" border="0" align="absmiddle"></a>
[<a href="friendlist.asp?action=addF&myFriend=<%=HTMLEncode(marusername)%>" target="_blank" title=加入我的最爱>加 入 最 爱</a>]</td>
</tr>
<tr>
<td height="11" align="center"><a href="photolist.asp?action=userp&username=<%=marusername%>" target="_blank" title=查看所有相册><img src="Skins/Default/icon_002.gif" width="16" height="16" border="0" align="absmiddle"></a>
[<a href="photolist.asp?action=userp&username=<%=marusername%>" target="_blank" title=查看所有相册>查看会员相册</a>]</td>
</tr>
<tr>
<td height="23" align="center"><a href="usermarry.asp?action=edit&id=<%=id%>">修改</a>
| <a href="usermarry.asp?action=dele&id=<%=id%>">删除</a>
| <a href="postcomp.asp?Typeid=3&page=marrylist.asp">投诉</a></td>
</tr>
</table> </td>
<td width="80%" class=tablebody1><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="33" colspan="3"><strong><font color="#660000">个人介绍</font></strong></td>
</tr>
<tr>
<td width="31%" height="20"><font color="#CC6699"><strong>性 别：</strong><%
if rs("Usersex")=1 then
response.Write("酷哥")
else
response.Write("靓女")
end if%></font></td>
<td width="35%" height="20"><font color="#CC6699"><strong>年 龄：</strong><%=datediff("yyyy",rs("Userbirthday"),Now())%>岁</font></td>
<td width="34%" height="20"><font color="#CC6699"><strong>所在地区：</strong><%=userinfo(4)%> <%=userinfo(5)%></font></td>
</tr>
<tr>
<td height="20"><font color="#CC6699"><strong>婚姻状况：</strong><%=userinfo(13)%></font></td>
<td height="20"><font color="#CC6699"><strong>学 历：</strong><%=userinfo(14)%></font></td>
<td height="20"><font color="#CC6699"><strong>收入水平：</strong><%=Userfriendinfo(5)%> 元</font></td>
</tr>
<tr>
<td height="20"><font color="#CC6699"><strong>职 业：</strong><%=userinfo(11)%></font></td>
<td height="20"><font color="#CC6699"><strong>身 高：</strong><%=Userheight%>CM</font></td>
<td height="20"><font color="#CC6699"><strong>体 重：</strong><%=Userfriendinfo(1)%>Kg</font></td>
</tr>
<tr>
<td height="20"><font color="#CC6699"><strong>健康程度：</strong><%=Userfriendinfo(0)%></font></td>
<td height="20"><font color="#CC6699"><strong>体 型：</strong><%=Userfriendinfo(2)%></font></td>
<td height="20"><font color="#CC6699"><strong>住房状况：</strong><%=Userfriendinfo(7)%></font></td>
</tr>
<tr>
<td height="37" colspan="3" valign="top"><font color="#CC6699"><%=userinfo(2)%></font></td>
</tr>
<tr>
<td height="27" colspan="3"><font color="#660000"><strong>择偶要求</strong></font></td>
</tr>
<tr>
<td height="20"><font color="#CC6699"><strong>年 龄：</strong><%=Marinfo(0)%>-<%=Marinfo(1)%>岁</font></td>
<td height="20"><font color="#CC6699"><strong>婚姻状况：</strong><%=Marinfo(3)%></font></td>
<td height="20"><font color="#CC6699"><strong>所在地区：</strong><%=Marinfo(6)%> <%=Marinfo(7)%></font></td>
</tr>
<tr>
<td height="20"><font color="#CC6699"><strong>身 高：</strong><%=Marinfo(2)%></font></td>
<td height="20"><font color="#CC6699"><strong>学 历：</strong><%=Marinfo(5)%></font></td>
<td height="20"><font color="#CC6699"><strong>收入水平：</strong><%=Marinfo(4)%>元</font></td>
</tr>
<tr>
<td height="29" colspan="3" valign="top"><font color="#CC6699"><%=Marinfo(8)%></font></td>
</tr>
</table></td>
</tr>
<%page_count=page_count+1
rs.movenext
loop
else
response.write("<td height=""30"" align=""center"" class=tablebody1>无记录！</td>")
end if
rs.close%>
<tr>
<td height="25" colspan="2" align="left" class=tablebody1><%if totalrec>0 then
call showpage(strFileName)
end if%></td>
</tr>
</table>
<%
end sub
%>
</body>
</html>